home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / trading / menu.sbp < prev    next >
Text File  |  1995-07-10  |  15KB  |  654 lines
  1. SBP
  2.  ÿ½     MENU                                
  3.  ÿ½     SBase Demo Trading-System
  4.  ÿ½     Hauptmenüprogramm
  5.  ÿ½     Neueste Version vom 1. Februar 1991
  6.  
  7.  ÿ³ÿ_ÿwferror 
  8.  
  9. mloop:ÿ½ Menu item selection
  10.  ÿßÿe
  11.  ÿ¡ret%ÿp
  12. ÿ½ Returning from another routine
  13. ÿ¡ÿœÿbanner$ÿpÿ´ÿœbanner$ÿ^ÿœ
  14. ÿ¡ma%ÿ
  15. 4ÿpÿvsmenu
  16.  ÿ^
  17. ÿ½ First time thru
  18. banner$ÿ"banner2"
  19. ÿvsinit
  20. banner$ÿ"banner"
  21.  ÿ’ÿ¡
  22.  ÿ¬ÿ³ma%,mb%
  23.  ÿÊÿËss1$
  24.  
  25.  ÿ¡ret%ÿ0ÿpÿßÿ³:ÿÏÿßÿÿ¬
  26.  ÿØÿOma%
  27. ÿ¡h2%ÿÿ:(ÿR)ÿpÿvshead
  28.  ÿÙ
  29.  ÿ¡ma%ÿ
  30. 4ÿpÿ¬ÿ…
  31.  ret%ÿ1
  32.  ÿ³ma%ÿwm1,m2,m3,m4,m5,m6
  33.  
  34. sinit:ÿ½ Initialisierung beim Systemstart
  35.  ÿ†ÿt:ÿÊÿfÿ³:ÿ²"z-99999.00"
  36.  ÿ½ STATUS ON
  37.  h3$ÿ"Superbase Demonstration Trading System "
  38.  ÿÊÿË"Initializing application"
  39.  ÿÊÿÂÿŸ"Trading System"
  40.  ÿvshead
  41.  ÿ´ÿœbanner$
  42.  ÿ´ÿ™"TRANS":ÿ´ÿ™"CTRL":ÿ½ Alle Dateien öffnen
  43.  ÿ×pstk$(12),pstk%(12):ÿ½ Schlüsselarrays für Bildschirmmasken
  44.  ÿ½ mit mehreren Datensätzen
  45.  
  46.  ÿ½ Texte für Dialogfelder
  47.  ms1$ÿ"Is entry correct?"
  48.  ms2$ÿ"Continue with data entry?"
  49.  ms3$ÿ"Do you wish to reprint?"
  50.  ms4$ÿ"Has all output been correctly printed?"
  51.  ms5$ÿ"Select another record?"
  52.  ms6$ÿ"Select another line?"
  53.  ms7$ÿ"Select index sequence"
  54.  ms8$ÿ"Record already exists with this key"
  55.  ms9$ÿ"Press OK to make another selection"
  56.  ms10$ÿ"Report to printer?"
  57.  ms11$ÿ"Report line too long for printer"
  58.  ms12$ÿ"Try using a smaller font"
  59.  ms13$ÿ"Include external images and text?"
  60.  ms14$ÿ"Deleting record "
  61.  ms15$ÿ"Are you sure?"
  62.  ms16$ÿ"Print (c)urrent record, (s)elected or (a)ll records"
  63.  ms17$ÿ"(d)isplay or (p)rint?"
  64.  ms18$ÿ"Cannot find related client record"
  65.  ms19$ÿ"Transaction record found"
  66.  ms20$ÿ"Please delete related transaction(s)"
  67.  ms21$ÿ"Break in program"
  68.  ms22$ÿ"Do you wish to resume?"
  69.  ms23$ÿ"Select query to be loaded"
  70.  ms24$ÿ"Enter query name"
  71.  ms25$ÿ"Cannot edit or delete"
  72.  ms26$ÿ"Batch totals do not agree"
  73.  ms27$ÿ"Amount must be positive"
  74.  ms28$ÿ"Batch totals agree"
  75.  ms29$ÿ"Do you wish to edit batch?"
  76.  ms30$ÿ"Do you have a VGA display adapter?"
  77.  
  78.  ms311$ÿ"This produces certificate advices for"
  79.  ms312$ÿ"transactions with certificate numbers"
  80.  ms321$ÿ"This produces contract notes"
  81.  ms322$ÿ"for all new transactions"
  82.  
  83.  ms411$ÿ"This updates stocks with year highs"
  84.  ms421$ÿ"This updates stocks with year lows"
  85.  ms431$ÿ"This updates transactions to indicate"
  86.  ms432$ÿ"that certificates have been sent"
  87.  ms442$ÿ"that contract notes have been sent"
  88.  ms451$ÿ"This resets document sent flags to N"
  89.  ms452$ÿ"for transaction nos. 000020 and up"
  90.  
  91.  ÿ½ Meldungen für Statuszeile
  92.  ss1$ÿ"Select a pulldown menu option"
  93.  ss2$ÿ"Select a pushbutton option"
  94.  ss3$ÿ"Enter data for new record"
  95.  ss4$ÿ"Use TAB or click on field to be edited. ESC to stop."
  96.  ss6$ÿ"Printing"
  97.  ss7$ÿ"Press the Space Bar to continue"
  98.  ss8$ÿ"Creating temporary mailmerge file"
  99.  ss9$ÿ"Enter new value(s)"
  100.  ss10$ÿ"Browse in "
  101.  ss11$ÿ" sequence: use STOP to end browsing"
  102.  ss12$ÿ"Select line to be deleted"
  103.  ss13$ÿ"Select pushbutton or click on line to edit"
  104.  ss14$ÿ"Press any key or click on mouse button to continue"
  105.  ss15$ÿ"Create or edit query. Use ENTER to stop"
  106.  ss16$ÿ"Checking whether referenced elsewhere"
  107.  ss17$ÿ"Updating client trading balance"
  108.  ss18$ÿ"Press ENTER for default values"
  109.  ss19$ÿ"Updating"
  110.  ss20$ÿ"Enter batch total"
  111.  ss21$ÿ"Move the pointer over a transaction line and click"
  112.  ÿ¬ÿ…
  113.  
  114. smenu:ÿ½ Pulldown-Menüs definieren
  115.     ÿ½ Flags in CTRL do graying for doc production/update cycles
  116.  ÿ¬1,0,1,"&File"
  117.  ÿ¬1,1,1,"&Clients"
  118.  ÿ¬1,2,1,"&Stocks"
  119.  ÿ¬1,3,1,"C&ountries"
  120.  ÿ¬1,4,1,"C&urrencies"
  121.  ÿ¬1,5,tran.CTRL,"&Transactions"
  122.  ÿ¬1,6,1,"&Exit"
  123.  
  124.  ÿ¬2,0,1,"&Daily"
  125.  ÿ¬2,1,1,"&Currency Rates"
  126.  ÿ¬2,2,1,"&Stock Prices"
  127.  ÿ¬2,3,cent.CTRL,"Certificate &Nos"
  128.  ÿ¬2,4,1,"Cash &Receipts"
  129.  ÿ¬2,5,1,"Cash &Payments"
  130.  
  131.  ÿ¬3,0,1,"D&ocuments"
  132.  ÿ¬3,1,cert.CTRL,"&Certificates":
  133.  ÿ¬3,2,cont.CTRL,"C&ontract Notes"
  134.  ÿ¬3,3,1,"&Statements"
  135.  
  136.  ÿ¬4,0,1,"&Update"
  137.  ÿ¬4,1,1,"Stock &Highs"
  138.  ÿ¬4,2,1,"Stock &Lows"
  139.  ÿ¬4,3,ceru.CTRL,"&Certs Sent"
  140.  ÿ¬4,4,conu.CTRL,"&Notes Sent"
  141.  ÿ¬4,5,1,"&Reset"
  142.  
  143.  ÿ¬5,0,1,"&Query"
  144.  ÿ¬5,1,1,"&Run"
  145.  ÿ¬5,2,1,"&New"
  146.  ÿ¬5,3,1,"&Open"
  147.  ÿ¬5,4,1,"&Edit"
  148.  ÿ¬5,5,1,"&Save"
  149.  
  150.  ÿ¬6,0,1,"&Reports"
  151.  ÿ¬6,1,1,"&Traded Stocks"
  152.  ÿ¬6,2,1,"Stock &Highs"
  153.  ÿ¬6,3,1,"Stock &Lows"
  154.  ÿ¬6,4,1,"T&rading Balances"
  155.  ÿ¬6,5,1,"-----------------"
  156.  ÿ¬6,6,1,"Telephone &Nos"
  157.  ÿ¬6,7,1,"Client &Balances"
  158.  ÿ¬6,8,1,"&Cash Audit"
  159.  ÿÃ
  160.  
  161. shead:ÿ½ Kopfzeile einmal pro Minute aktualisieren
  162.  h1$ÿÿ(ÿQ,"mmm dd, yy"):h2$ÿÿ7(ÿR,"hh:mm am")
  163.  h2%ÿÿ:(ÿR):h3%ÿ(50ÿÿ/(h3$))ÿ2
  164.  h4$ÿh1$ÿÿ'(h3%)ÿh3$ÿÿ'(h3%)ÿh2$
  165.  ÿÊÿŸh4$
  166.  ÿÃ
  167.  
  168. m1:ÿ½ Die Optionen im Menü FILE (ma%= 1)
  169.  selkey$ÿ"":selkey%ÿ0
  170.  ÿ³mb%ÿwstkf,stkf,m13,m13,stkf,m16
  171.  
  172. m13:ÿ½ File Country, Currency
  173.  ÿ„"stkfo"
  174.  
  175. m16:ÿ½ File Exit
  176.  ÿ†ÿt:ÿÊÿŸ"":ÿÊÿÂÿŸ"":ÿ’
  177.  
  178. m2:ÿ½ Die Optionen im Menü DAILY (ma%=2)
  179.  ÿ³mb%ÿwm21,m21,m21,m24,m24
  180.  
  181. m21:ÿ½ Daily Currency rates, Stock prices, Certificate numbers
  182.  ÿ„"stkdc"
  183.  
  184. m24:ÿ½ Daily Cash receipts, Cash payments
  185.  ÿ„"stkdr"
  186.  
  187. m3:ÿ½ Die Optionen im Menü DOCUMENTS (ma%=3)
  188.  ÿ³mb%ÿvm31,m31,stkf
  189.  ÿwmloop
  190.  
  191. m31:ÿ½ Documents Certificate advices, Contract notes
  192.  ÿÉÿæmb%
  193.  ÿæ1
  194. ÿÂms311$,ms312$,140,a%
  195.  ÿæ2
  196. ÿÂms321$,ms322$,140,a%
  197.  ÿ’ÿÉ
  198.  ÿ¡a%ÿ0ÿpÿÃ
  199.  
  200.  ÿßÿe
  201.  ÿÊÿËss8$
  202.  ÿ¡mb%ÿ1ÿp
  203. ÿ½ Zertifikatsanzeigen
  204. docf$ÿ"certs":letf$ÿ"lecerts"
  205. ÿ¡ÿJ("certs.sbf")ÿpÿ´ÿ™docf$:ÿ¾ÿ™docf$
  206. ÿÉCustomer_Ref.TRANS,Quantity.TRANS,Certificate_No.TRANS,Title.CLIENTS,Firstname.CLIENTS,
  207. Lastname.CLIENTS,Company.CLIENTS,Street.CLIENTS,Address.CLIENTS,
  208. City.CLIENTS,State.CLIENTS,Zip_Code.CLIENTS,Country.CLIENTS,
  209. Company Name.STOCKS,Stock_Type
  210. ÿÐCustomer_Ref.TRANSÿCustomer_Ref.CLIENTSÿ Stock_Key.TRANSÿStock_Key.STOCKSÿ Trans_Type.TRANSÿ"b"ÿ Certificate_No.TRANSÿ""ÿ Cert_Sent_yn.TRANSÿ"n"
  211. ÿµStock_Key.TRANS,Certificate_No.TRANS
  212. ÿqÿ™docf$
  213. ÿ’ÿÉ
  214.  ÿ^ÿ¡mb%ÿ2ÿp
  215. ÿ½ Contract notes (Ausführungsanzeigen)
  216. docf$ÿ"invs":letf$ÿ"leinvs"
  217. ÿ¡ÿJ("invs.sbf")ÿpÿ´ÿ™docf$:ÿ¾ÿ™docf$
  218. ÿÉStock_Key.TRANS,Customer_Ref.TRANS,Transaction ref,Trans_Type,Trans_Desc,Trans_Date,Settlement_Date,ÿ(Quantity.TRANS,6,0)ÿU"QTY",ÿ(Stock_Price.TRANS,6,2)ÿU"PR",Currency.TRANS,USD Xrate.TRANS,
  219. ÿ(ÿ(USD Value.TRANS),6,2)ÿU"USDV",(Comm_Value)ÿU"Com",ÿ(ÿ(USD Value.TRANSÿComm_Value),6,2)ÿU"TV",&24(Client.CLIENTS)ÿU"Client",Company.CLIENTS,Street.CLIENTS,Address.CLIENTS,City.CLIENTS,
  220. State.CLIENTS,Zip_Code.CLIENTS,Country.CLIENTS,Company Name.STOCKS,Stock_Type,Exchange
  221. ÿÐCustomer_Ref.TRANSÿCustomer_Ref.CLIENTSÿ Stock_Key.TRANSÿStock_Key.STOCKSÿ Invoice_Sent_yn.TRANSÿ"n"
  222. ÿµCustomer_Ref.TRANS,Transaction ref
  223. ÿqÿ™docf$
  224. ÿ’ÿÉ
  225.  ÿ’ÿ¡
  226.  ÿ´ÿ™docf$
  227.  ÿvsdorp:ÿ½ Anzeigen oder drucken
  228.  ÿ¡a%ÿ0ÿpÿ¾ÿ™docf$:ÿÃ
  229.  
  230. m312:ÿ½ Serienbrief anzeigen oder drucken
  231.  ÿ¨ÿoletf$:ÿÉÿ`
  232.  ÿØÿOÿB(docf$)
  233. ÿ¡p$ÿ"p"ÿpÿ­ÿoletf$
  234. ÿ¡p$ÿ"d"ÿpÿ{ÿoÿ­
  235. ÿ½ WAIT FOR 2
  236. ÿÉÿ±
  237.  ÿÙ
  238.  b%ÿ0
  239.  ÿÂms4$,"",130,a%
  240.  ÿ¡a%ÿp
  241. ÿ½ CTRL aktualisieren und Menüs wieder de- (=0) oder reaktivieren (=1)
  242. ÿ™"ctrl"
  243. ÿ¡mb%ÿ1ÿp
  244. tran.CTRLÿ0:cent.CTRLÿ0:cert.CTRLÿ0:ceru.CTRLÿ1
  245. ÿ¬1,5,tran.CTRL,"&Transactions"
  246. ÿ¬2,3,cent.CTRL,"Certificate &Nos"
  247. ÿ¬3,1,cert.CTRL,"&Certificates"
  248. ÿ¬4,3,ceru.CTRL,"&Certs Sent"
  249. ÿ^ÿ¡mb%ÿ2ÿp
  250. tran.CTRLÿ0:cont.CTRLÿ0:conu.CTRLÿ1
  251. ÿ¬1,5,tran.CTRL,"&Transactions"
  252. ÿ¬3,2,cont.CTRL,"C&ontract Notes"
  253. ÿ¬4,4,conu.CTRL,"&Notes Sent"
  254. ÿ’ÿ¡
  255. ÿÌ
  256.  ÿ^
  257. ÿÂms3$,"",135,b%
  258. ÿ¡b%ÿ0ÿpÿ¾ÿ™docf$
  259.  ÿ’ÿ¡
  260.  ÿ¡b%ÿ1ÿwm312
  261.  ÿÃ
  262.  
  263. m4:ÿ½ Die Optionen im Menü UPDATE (ma%=4)
  264.  ÿ³mb%ÿvm41,m42,m43,m44,m45
  265.  ÿwmloop
  266.  
  267. m41:ÿ½ New Highs (neue Höchstpreise) aktualisieren
  268.  ÿÂms411$,"",140,a%
  269.  ÿ¡a%ÿp
  270. ÿßÿe
  271. ÿÊÿËss19$
  272. ÿÍYear_High.STOCKSÿPrice Middle.STOCKS:Date of High.STOCKSÿPrice Date.STOCKS
  273. ÿÐPrice Middle.STOCKSÿYear_High.STOCKSÿÿ6(Price Date.STOCKS)ÿÿ6(Date of High.STOCKS)
  274. ÿ’ÿÍ
  275.  ÿ’ÿ¡
  276.  ÿÃ
  277.  
  278. m42:ÿ½ Update New Lows
  279.  ÿÂms421$,"",140,a%
  280.  ÿ¡a%ÿp
  281. ÿßÿe
  282. ÿÊÿËss19$
  283. ÿÍYear_Low.STOCKSÿPrice Middle.STOCKS:Date of Low.STOCKSÿPrice Date.STOCKS
  284. ÿÐPrice Middle.STOCKSÿ    Year_Low.STOCKSÿÿ6(Price Date.STOCKS)ÿÿ6(Date of Low.STOCKS)
  285. ÿ’ÿÍ
  286.  ÿ’ÿ¡
  287.  ÿÃ
  288.  
  289. m43:ÿ½ Update Certs Sent
  290.  ÿÂms431$,ms432$,140,a%
  291.  ÿ¡a%ÿp
  292. ÿßÿe
  293. ÿÊÿËss19$
  294. ÿÍCert_Sent_YN.TRANSÿ"y"
  295. ÿÐCertificate_No.TRANSÿ""ÿ Cert_Sent_YN.TRANSÿ"n"
  296. ÿ’ÿÍ
  297.  
  298. ÿ½ CTRL aktualisieren und Menüs wieder de- (=0) oder reaktivieren (=1)
  299. ÿ™"ctrl"
  300. tran.CTRLÿ1:cent.CTRLÿ1:cert.CTRLÿ1:ceru.CTRLÿ0
  301. ÿ¬1,5,tran.CTRL,"&Transactions"
  302. ÿ¬2,3,cent.CTRL,"Certificate &Nos"
  303. ÿ¬3,1,cert.CTRL,"&Certificates"
  304. ÿ¬4,3,ceru.CTRL,"&Certs Sent"
  305. ÿÌ
  306.  ÿ’ÿ¡
  307.  ÿÃ
  308.  
  309. m44:ÿ½ Update Contract Notes Sent
  310.  ÿÂms431$,ms442$,140,a%
  311.  ÿ¡a%ÿp
  312. ÿßÿe
  313. ÿÊÿËss19$
  314. ÿÍInvoice_Sent_yn.TRANSÿ"y"ÿÐInvoice_Sent_yn.TRANSÿ"n"
  315. ÿ’ÿÍ
  316.  
  317. ÿ½ CTRL aktualisieren und Menüs wieder de- (=0) oder reaktivieren (=1)
  318. ÿ™"ctrl"
  319. tran.CTRLÿ1:cont.CTRLÿ1:conu.CTRLÿ0
  320. ÿ¬1,5,tran.CTRL,"&Transactions"
  321. ÿ¬3,2,cont.CTRL,"C&ontract Notes"
  322. ÿ¬4,4,conu.CTRL,"&Notes Sent"
  323. ÿÌ
  324.  ÿ’ÿ¡
  325.  ÿÃ
  326.  
  327. m45:ÿ½ Resets document flags in TRANS for numbers 000020 and up
  328.  ÿÂms451$,ms452$,140,a%
  329.  ÿ¡a%ÿp
  330. ÿÊÿË"Updating TRANS file"
  331. ÿ™"TRANS"
  332. ÿ£Transaction ref
  333. ÿÍCert_Sent_yn.TRANSÿ"n":Invoice_Sent_yn.TRANSÿ"n"ÿÐTransaction ref.TRANSÿ20
  334. ÿ’ÿÍ
  335.  ÿ’ÿ¡
  336.  ÿÃ
  337.  
  338. m5:ÿ½ Die Optionen im Menü QUERY (ma%=5)
  339.  ÿßÿ³:ÿ²"z-9999999.00"
  340.  ÿÉÿæmb%
  341.  ÿæ1:ÿ½ Der Menüpunkt QUERY Run
  342. ÿvsdorp
  343. ÿ¡a%ÿp
  344. ÿ¡p$ÿ"p"ÿp
  346. ÿ{ÿiÿqÿh
  347. ÿ^
  349. ÿ{ÿi
  351. ÿÊÿËss14$
  353. ÿÏÿ¥ÿÿß
  354. ÿ’ÿ¡
  355. ÿœ
  356. ÿ’ÿ¡
  357.  ÿæ2:ÿ½ Der Menüpunkt QUERY New
  358. ÿÊÿËss15$
  359. ÿ³ÿ_ÿwmqerror
  360. ÿ°ÿi
  361. ÿÿi
  362.  ÿæ3:ÿ½ Der Menüpunkt QUERY Open
  363. ÿÂms23$,"",14,a%,q$
  364. ÿ¡a%ÿpÿ¨ÿiq$
  365.  ÿæ4:ÿ½ Der Menüpunkt QUERY Edit
  366. ÿÊÿËss15$
  367. ÿ³ÿ_ÿwmqerror
  368. ÿÿi
  369.  ÿæ5:ÿ½ Der Menüpunkt QUERY Save
  370. ÿÂms24$,"",14,a%,q$
  371. ÿ¡a%ÿpÿÅÿiq$
  372.  ÿ’ÿÉ
  373.  ÿ¡mb%ÿ2ÿpmb%ÿ1:ÿwm5:ÿ½ IF Neue Abfrage THEN Run
  374.  
  375. mqerror: ÿ½ Abfangmechanismus für Fehler, die im 
  376.  ÿ½ Dialogfeld Query auftreten.
  377.  ÿ³ÿ_ÿwferror
  378.  ÿ²"z-99999.00"
  379.  ÿwmloop
  380.  
  381. m6:ÿ½ Die Optionen im Menü REPORTS (ma%=6)
  382.  ÿvsdorp:ÿ¡a%ÿ0ÿpÿwmloop
  383.  ÿ³mb%ÿwm61,m62,m63,m64,mloop,m66,m67,m68
  384.  
  385. m61:ÿ„"stkrte"
  386. m62:ÿ„"stkrhe"
  387. m63:ÿ„"stkrle"
  388. m64:ÿ„"stkrre"
  389. m66:ÿ„"stkrne"
  390. m67:ÿ„"stkrbe"
  391. m68:ÿ„"stkrce"
  392.  
  393. sdorp:ÿ½ Auswahl d=Bildschirm p=Drucker
  394.  p$ÿ"d"
  395.  ÿÂms17$,"",4,a%,p$,1
  396.  ÿ¡ÿO(p$ÿ"[pd]")ÿwsdorp
  397.  ÿ¡a%ÿp
  398. p$ÿÿ=(p$)
  399. ÿ¡p$ÿ"d"ÿpÿÊÿËss7$ÿ^ÿÊÿËss6$:ÿ¹;
  400.  ÿ’ÿ¡
  401.  ÿÃ
  402.  
  403. stkf:ÿ½ File Clients, Stocks, Transactions 
  404. ÿ½ Documents Statements
  405.  fst%ÿ0:cli%ÿ1:stk%ÿ2:sta%ÿ3:tra%ÿ5:k%ÿ1:t%ÿ0
  406.  ÿ½ Set option parameters
  407.  ÿÉÿæmb%
  408.  ÿæcli%:ÿ½ File Clients
  409. f$ÿ"clients":fkey$ÿ"Customer_Ref":fmd$ÿ"stkc":fmp$ÿ"stkc"
  410.  ÿæstk%:ÿ½ File Stocks
  411. f$ÿ"stocks":fkey$ÿ"Stock_Key":fmd$ÿ"stks":fmp$ÿ"stks"
  412.  ÿæsta%:ÿ½ Documents Statements
  413. f$ÿ"clients":fkey$ÿ"Customer_Ref":fmd$ÿ"stkos":fmp$ÿ"stkos"
  414.  ÿætra%:ÿ½ File Transactions
  415. f$ÿ"trans":fkey$ÿ"Transaction ref":fmd$ÿ"stkt":fmp$ÿ"stkt":k%ÿ2
  416.  ÿ’ÿÉ
  417.  
  418.  ÿ™f$
  419.  ÿ£fkey$
  420.  ÿ¡ÿœÿfmd$ÿpÿ´ÿœfmd$
  421.  ind$ÿÿ£
  422.  ÿvsset
  423.  
  424.  ÿ½ File-Formulare haben Befehl nur auf Seite 1
  425.  ÿ½ zur Auswahl von Formular nach selkey
  426.  ÿ¡mb%ÿsta%ÿpÿœ2
  427.  ÿwfwait
  428.  
  429. floop:ÿ½ Formular erneut darstellen
  430.  ÿvsset
  431.  ÿvssearch
  432.  ÿÎ
  433.  
  434. fwait:ÿ½ Warten auf Formular-Drucktaste
  435.  ed%ÿ1
  436.  ÿÊÿËss2$
  437.  ÿÏÿß
  438.  ÿwfwait
  439.  
  440. fedit:ÿ½ Drucktaste editieren
  441.  ÿÊÿËss4$
  442.  ÿ¡mb%ÿtra%ÿpoamt%ÿTotal_Due.TRANS
  443.  ÿßÿ³:ÿ”3,0
  444.  
  445. fedit2: 
  446.  ÿßÿe
  447.  ÿÂms1$,"",127,a%
  448.  ÿ¡a%ÿ1ÿp
  449. ÿÌ:ÿ½ Speichert editierte Daten
  450. ÿ¡mb%ÿtra%ÿpamt%ÿTotal_Due.TRANSÿoamt%:ÿvsupdate
  451.  ÿ^
  452. ÿÉÿœÿY:ÿ½ Formular wie vor bearbeiten neu darstellen
  453.  ÿ’ÿ¡
  454.  ÿwfloop
  455.  
  456. fenter: ÿ½ Drucktaste
  457.  ÿÿœ:ed%ÿ0
  458.  ÿ¡mb%ÿtra%ÿp
  459. Trans_Type ÿ"b":del%ÿ0:ÿÊÿËss18$
  460.  ÿ^
  461. ÿ¡mb%ÿcli%ÿpClass.CLIENTSÿ"P"
  462. ÿÊÿËss3$
  463.  ÿ’ÿ¡
  464.  ÿßÿ³:ÿ”3,0
  465.  
  466. fenter2: 
  467.  ÿßÿe
  468.  b%ÿ0
  469.  ÿÂms1$,"",127,a%
  470.  ÿ¡a%ÿp
  471. ÿÌ:ÿ½ Neuen Datensatz speichern
  472. del%ÿ0
  473. ÿ¡mb%ÿtra%ÿpamt%ÿTotal_Due.TRANS:ÿvsupdate
  474. ÿÂms2$,"",130,b%
  475.  ÿ^
  476. ÿÉÿœÿY:ÿ½ Aktuelles Formular erneut darstellen
  477.  ÿ’ÿ¡
  478.  ÿ¡b%ÿpÿwfenter
  479.  ÿœ2
  480.  ÿwfloop
  481.  
  482. fdelete:ÿ½ Drucktaste Delete
  483.  del%ÿ1
  484.  ÿ¡mb%ÿtra%ÿp
  485. ÿ½ Clients, Stocks, zugehörige Transactions? Falls ja, del%=0 setzen
  486. ÿÊÿËss16$
  487. ÿ™"trans"
  488. skey$ÿckey$
  489. ÿ¡mb%ÿcli%ÿpÿ£Customer_Ref.TRANS
  490. ÿ¡mb%ÿstk%ÿpÿ£Stock_Key.TRANS
  491. ÿÉÿ¥skey$
  492. ÿ¡ÿC("")ÿpdel%ÿ0
  493. ckey$ÿskey$
  494. ÿ™f$
  495.  ÿ’ÿ¡
  496.  ÿ¡del%ÿ1ÿp
  497. ÿÂms14$,"",119,a%
  498. ÿ¡a%ÿp
  499. ÿ¡mb%ÿtra%ÿpamt%ÿÿTotal_Due.TRANS:ÿvsupdate
  500. ÿÉÿ¾
  501. ÿ’ÿ¡
  502.  ÿ^
  503. ÿÂms19$,ms20$,100,a%
  504.  ÿ’ÿ¡
  505.  ÿ¡del%ÿ0ÿwfwait
  506.  ÿÉÿœÿ¥ind$$
  507.  ÿwfloop 
  508.  
  509. fswitch:ÿ½ Schlüssel von transaction und form/record zuweisen
  510.  mp%ÿ0
  511.  ÿÊÿËss21$
  512.  ÿÏÿß
  513.  ÿ¡(mp%ÿ0ÿmp%ÿ10)ÿpÿwfswitch
  514.  ÿÉÿœÿ"mp%
  515.  
  516. fswitch2:ÿ½ Eingabe von Trans-Formular: keine Zeile auswählen
  517.  ÿÉÿæmb%
  518.  ÿæcli%
  519. selkey$ÿCustomer_Ref.TRANS
  520.  ÿæstk%
  521. selkey$ÿStock_Key.TRANS
  522.  ÿætra%
  523. selkey%ÿTransaction ref.TRANS
  524.  ÿ’ÿÉ
  525.  ÿwstkf
  526.  
  527. fexit:ÿ½ Exit pushbutton
  528.  ÿwmloop
  529.  
  530. stexit: 
  531.  ÿÃ
  532.  
  533. supdate:ÿ½ Wenn Transaktion geändert, Balance in Client-Datensatz aktualisieren
  534.  ÿÊÿËss17$
  535.  ÿ™"clients"
  536.  ÿ£Customer_Ref.CLIENTS
  537.  ÿÉÿ¥Customer_Ref
  538.  ÿ¡ÿC("")ÿp
  539. Trading_Balance.CLIENTSÿTrading_Balance.CLIENTSÿamt%
  540. ÿÌ
  541.  ÿ^
  542. ÿÂms18$,"",100,a%
  543.  ÿ’ÿ¡
  544.  ÿ™f$
  545.  ÿÃ
  546.  
  547. sindex:ÿ½ Drucktaste Index
  548.  ÿÂms7$,"",7,a%,ind$
  549.  ÿ¡a%ÿp
  550. ÿ£ind$
  551. ÿvssearch
  552.  ÿ’ÿ¡
  553.  ÿÎ
  554.  ÿÃ
  555.  
  556. spanel:ÿ½ Drucktaste Browse
  557.  ÿ³ÿ_ÿwserror
  558.  err%ÿ0
  559.  ss5$ÿss10$ÿind$ÿss11$
  560.  ÿÊÿËss5$
  561.  
  562. spanel2: 
  563.  ÿÏÿâ
  564.  ÿ³ÿ_ÿwferror
  565.  ÿÉÿÐ
  566.  ÿ¡err%ÿ1ÿpÿ‚ÿ³
  567.  ÿvsset
  568.  ÿÃ
  569.  
  570. serror: ÿ‚ÿe:ÿ½ Fehler von Wait Panel abfangen
  571.  ÿÂÿ((ÿ&),"",2,a%
  572.  err%ÿ1
  573.  ÿÉÿœÿY:ÿyspanel2
  574.  
  575. sprint:ÿ½ Print pushbutton
  576.  b$ÿ"c":c%ÿ0
  577.  ÿÂms16$,"",4,a%,b$,1
  578.  ÿ¡a%ÿ0ÿpÿÃ
  579.  ÿ¡ÿO(b$ÿ"[csa]")ÿpÿwsprint
  580.  b$ÿÿ=(b$)
  581.  ÿ¡mb%ÿcli%ÿpÿÂms13$,"",135,c%
  582.  
  583.  ÿÊÿËss6$
  584.  ÿ½ OPEN FORM fmp$:REM Open special print form
  585.  ÿ¡b$ÿ"c"ÿp
  586. ÿvssearch
  587. ÿvssprint
  588. ÿ½ OPEN FORM fmd$
  589. ÿvssearch
  590.  ÿ^
  591. ÿ¡b$ÿ"s"ÿpÿÉÿœÿÐÿ~
  592. ÿÉÿœÿ`
  593. ÿØÿOÿB(f$)
  594. ÿvssprint 
  595. ÿÉÿœÿ±
  596. ÿÙ
  597. ÿÉÿÐ
  598. ÿ;
  599. ÿ½ OPEN FORM fmd$
  600. ÿÉÿ`
  601.  ÿ’ÿ¡
  602.  ÿÎ
  603.  ÿÃ
  604.  
  605. ssprint:ÿ½ print required pages
  606.  ÿÉÿæmb%
  607.  ÿæcli%
  608. ÿœ2:ÿ¹ÿYÿí
  609. ÿ¡c%ÿpÿœÿÈ3:ÿ¹ÿYÿí
  610. ÿœ4:ÿ¹ÿYÿí
  611.  ÿæstk%
  612. ÿœ2:ÿ¹ÿYÿí
  613. ÿœ3:ÿ¹ÿYÿí
  614. ÿœ4:ÿ¹ÿYÿí
  615.  ÿætra%
  616. ÿœ2:ÿ¹ÿYÿí
  617.  ÿæsta%
  618. ÿ¹ÿYÿí
  619.  ÿ’ÿÉ
  620.  ÿÃ
  621.  
  622. sset:ÿ½ Speichert eindeutigen Wert für Datensatz in Schlüssel
  623.  ÿ¡k%ÿ1ÿpckey$ÿfkey$$
  624.  ÿ¡k%ÿ2ÿpckey%ÿfkey$$
  625.  ÿÃ
  626.  
  627. ssearch:ÿ½ Findet eindeutigen Datensatz, selbst 
  629. ÿ½ wenn in Index doppelte Schlüssel existieren
  630.  ÿÉÿœÿ¥ind$$
  631.  
  632. ssearch2: ÿ½ Schleife bis aktueller Datensatz gefunden
  633.  ÿ¡k%ÿ1ÿpÿ¡fkey$$ÿckey$ÿpÿÃ
  634.  ÿ¡k%ÿ2ÿpÿ¡fkey$$ÿckey%ÿpÿÃ
  635.  ÿÉÿœÿ±
  636.  ÿwssearch2
  637.  
  638. ferror:ÿ½ Allgemeiner Fehlerabfangmechanismus
  639.  res%ÿ0
  640.  ÿ¡ÿ&ÿ11ÿp
  641. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  642.  ÿ^ÿ¡ÿ&ÿ57ÿp
  643. ÿÂms8$,"",2,a%:res%ÿ2
  644.  ÿ^
  645. ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
  646.  ÿ’ÿ¡
  647.  ÿ¡res%ÿ1ÿpÿy
  648.  ÿ¡res%ÿ2ÿpÿyfloop
  649.  ÿ¡res%ÿ3ÿpÿymloop
  650.  ÿ
  651.  
  652.  
  653.  
  654.